home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00051_CoverStory Menu Init.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  2.1 KB  |  41 lines
  1. on exitFrame
  2.   set newMenu to CreateMenu([#statusMessage: "Make a selection."])
  3.   SetStatusMember(newMenu, [#statusMember: "coverstory status"])
  4.   mmButton(newMenu, [#downMember: "ugpD_61"])
  5.   quitButton(newMenu, [#downMember: "ugpD_71"])
  6.   ShowVolumeControl()
  7.   set featText to 10
  8.   set revText to 14
  9.   set scroller1Params to [#upSprite: 8, #downSprite: 9, #displaySprite: featText, #displayMember: "featured game display", #displayLines: 6, #sourceText: the text of member "featured games", #normalColor: 255]
  10.   set scroller2Params to [#upSprite: 12, #downSprite: 13, #displaySprite: revText, #displayMember: "reviewed game display", #displayLines: 5, #sourceText: the text of member "reviewed games", #normalColor: 255]
  11.   NewVideoDisplay(newMenu, [#cleanup: 1])
  12.   set features to NewTextScroller(newMenu, scroller1Params)
  13.   set reviews to NewTextScroller(newMenu, scroller2Params)
  14.   SetGameList(newMenu, featText, #features, revText, "Select a feature.")
  15.   SetGameList(newMenu, revText, #reviews, featText, "Select a review.")
  16.   cursor(-1)
  17. end
  18.  
  19. on SetGameList newMenu, textListSprite, category, otherTextList, statusMessage
  20.   global titleDatabase
  21.   set gameList to getrecords(titleDatabase, category, "coverstory")
  22.   if not listp(gameList) then
  23.     put "No games in that category"
  24.   else
  25.     set button to BasicButton(newMenu, [#hotSprites: [textListSprite], #statusMessage: statusMessage])
  26.     set gameParams to [#gameList: gameList, #memberID: the memberNum of sprite textListSprite, #normalColor: 255, #hiliteColor: 6]
  27.     AddDown(button, NewObject(newMenu, "Game Manager Class", gameParams))
  28.     set textColorParams to [#memberNum: the memberNum of sprite otherTextList, #normalColor: 255]
  29.     AddDown(button, NewObject(newMenu, "Text Color Class", textColorParams))
  30.   end if
  31. end
  32.  
  33. on NewTextScroller newMenu, paramList
  34.   set upTrigger to BasicButton(newMenu, [#hotSprites: [getProp(paramList, #upSprite)]])
  35.   set downTrigger to BasicButton(newMenu, [#hotSprites: [getProp(paramList, #downSprite)]])
  36.   set newScroller to NewObject(newMenu, "Text Scroller Class", paramList)
  37.   AddDown(upTrigger, newScroller)
  38.   AddDown(downTrigger, newScroller)
  39.   return newScroller
  40. end
  41.